Dephi 屏蔽进程声音

最新推荐文章于 2023-04-29 22:31:10 发布

jiangqin115

最新推荐文章于 2023-04-29 22:31:10 发布

阅读量737

点赞数

分类专栏： Dephi

本文链接：https://blog.csdn.net/jiangqin115/article/details/40743601

版权

Dephi 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

常用于 WebBrowser控件后台打开网页时，需要屏蔽网页的视频声音

function DSoundsCode():Integer ;stdcall;
var
hDSound: Cardinal;
pDirectSoundCreate: Pointer;
lp: Cardinal;
begin
if Win32MajorVersion >= 6 then //Vista以上的操作系统
begin
Result := Integer(ControlVolume.SetVolumeMute(Master,True));
Exit;
end;
hDSound := GetModuleHandle('DSound.dll');
if hDSound = 0 then hDSound := LoadLibrary('DSound.dll');
if hDSound > 0 then
begin
pDirectSoundCreate := GetProcAddress(hDSound, 'DirectSoundCreate');
if Assigned(pDirectSoundCreate) then
begin
VirtualProtect(pDirectSoundCreate, 3, PAGE_EXECUTE_READWRITE, lp);
Move(#$C2#$0C#$00, pDirectSoundCreate^, 3);
end;
end;

hDSound := GetModuleHandle('Winmm.dll');
if hDSound = 0 then hDSound := LoadLibrary('Winmm.dll');
if hDSound > 0 then
begin
pDirectSoundCreate := GetProcAddress(hDSound, 'midiStreamOpen');
if Assigned(pDirectSoundCreate) then
begin
VirtualProtect(pDirectSoundCreate, 3, PAGE_EXECUTE_READWRITE, lp);
Move(#$C2#$04#$00, pDirectSoundCreate^, 3);
end;
pDirectSoundCreate := GetProcAddress(hDSound, 'waveOutWrite');
if Assigned(pDirectSoundCreate) then
begin
VirtualProtect(pDirectSoundCreate, 3, PAGE_EXECUTE_READWRITE, lp);
Move(#$C2#$0C#$00, pDirectSoundCreate^, 3);
end;
end;
Result := 1597;
end;